home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / format_disk < prev    next >
AmigaDOS Script File  |  1996-09-26  |  952b  |  46 lines
  1. .key pubscreen/a
  2. .bra {
  3. .ket }
  4. ; $VER: format_disk 37.2 (13.8.93)
  5. ;
  6. ; Asks user for a disk to format.  This uses the AmigaDOS
  7. ; requestchoice under 3.0 and the requestchoice program
  8. ; included with Rush under AmigaDOS 2.x.
  9. ;
  10. ; Written by Douglas Keller
  11. ;
  12.  
  13. requestchoice >env:formatdisk pubscreen {pubscreen} "Disk Format" "Select disk to Format?*n*nWARNING!*nAll data will be lost on the disk!" "df0:|pc0:|ff0:|ff1:|Cancel"
  14.  
  15. if val $formatdisk EQ 1
  16.   set disk "df0:"
  17. endif
  18.  
  19. if val $formatdisk EQ 2
  20.   set disk "pc0:"
  21. endif
  22.  
  23. if val $formatdisk EQ 3
  24.   set disk "ff0:"
  25. endif
  26.  
  27. if val $formatdisk EQ 4
  28.   set disk "ff1:"
  29. endif
  30.  
  31. if val $formatdisk EQ 0
  32.   quit
  33. endif
  34.  
  35. if exists env:formatdisk
  36.   delete quiet "env:formatdisk"
  37. endif
  38.  
  39. if val $formatdisk EQ 2 
  40.   set diskoptions "IBM noicons"
  41. else
  42.   set diskoptions "AmigaDOS ffs noicons"
  43. endif
  44.  
  45. run >nil: <nil: format drive $disk name $diskoptions <z:rush/scripts/return >con:30/50/400/70/Format/screen{pubscreen}
  46.